home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / text / misc / OwnWords.lha / OwnWords / Support / TED / last.ted < prev    next >
Text File  |  1996-12-05  |  363b  |  24 lines
  1. /* start this from TED */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg TEDport
  6. if TEDport = '' then TEDport = address()
  7.  
  8. address value TEDport
  9.  
  10. QUERY WORD
  11. szo=result
  12.  
  13. if ~show(ports, OWNWORDS) then
  14.  do
  15.   address command 'run >nil: OwnWords'
  16.   address command 'SYS:REXXC/WaitForPort OWNWORDS'
  17.   ADDRESS OWNWORDS
  18.   GUI PUBSCREEN "Ted"
  19.  end
  20.  
  21. ADDRESS OWNWORDS
  22.  
  23. FIND word szo last win
  24.